home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / guile-ii.src / guile-ii / guile-src / gls / defmod.scm < prev    next >
Encoding:
Text File  |  1995-01-07  |  942 b   |  25 lines
  1. ;;; $Id: defmod.scm,v 1.2 1995/01/06 18:10:33 miles Exp $
  2. ;;; ----------------------------------------------------------------
  3. ;;; defmod.scm -- Default package/module definition
  4. ;;; 21 Dec 1994, Miles Bader <miles@eskimo.com>
  5. ;;; ----------------------------------------------------------------
  6. ;;;
  7. ;;; This file defines the `default' package and module, into which files are
  8. ;;; initially loaded (up to the point that they use in-package or in-module).
  9. ;;; 
  10.  
  11. (in-package default)
  12. (use-library guile)
  13.  
  14. (in-module default)            ; in the default package
  15. (use-interface guile)
  16.  
  17. (in-interface #f)            ; no default interface here
  18.  
  19. (define (%not-in-default-module . noise)
  20.   (error "Module operation cannot be used in the default module"))
  21. (define-macro (export-interfaces-to-library . noise) `(%not-in-default-module))
  22. (define-macro (use-library . noise) `(%not-in-default-module))
  23.  
  24. ;; ----------------------------------------------------------------
  25.